home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 14 / Hot Mix 14.iso / HTML / vendors / finesse / examples / perl / hello_world next >
Text File  |  1996-06-27  |  373b  |  18 lines
  1. #! /usr/local/bin/perl
  2. # FINESSEAPPLICATIONKEY sSoCbrUl`XvGK
  3.  
  4. # perl script initialization
  5. $ENV{'FINESSEPATH'} = '/usr/local/finesse' 
  6.   if !$ENV{'FINESSEPATH'};
  7. require("$ENV{'FINESSEPATH'}/fsperlinit");
  8.  
  9. # Set up application server
  10. &Fsopen(@ARGV);
  11.  
  12. # Create window
  13. &Fsdisplay("-w", "FsWindow -btype o;",
  14.        "-m","Hello World");
  15.  
  16. # Terminate application server
  17. &Fsclose;
  18.